home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / win / vb / bitmap.exe / COLORSET.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1991-07-15  |  4.1 KB  |  86 lines
  1. ColorSetForm
  2. Color Settings
  3. Form1,
  4. FGText
  5. FGScrl    
  6. BGText
  7. BGScrl    
  8. Apply
  9. Apply
  10. FGText
  11. FGScrl    
  12. ColorSetText
  13. BGText
  14. BGScrl    
  15. ColorSetText
  16. Cancel
  17. Cancel
  18. FGText
  19. FGScrl    
  20. BGText
  21. BGScrl    
  22. Form_Click
  23. Form_ResizeI
  24. P1BGScrl{
  25. Visible
  26. Value]
  27.     ForeColorS
  28. P1FGScrl
  29.     BackColor
  30. P1BGScrl_Change
  31. Index
  32. P1BGText
  33. P1BG'
  34. P1FGScrl_Change
  35. P1FGText
  36. FGScrl_Change
  37. BGScrl_Change
  38. BGScrl
  39. FGScrl
  40. Command1_Click
  41. Apply_Click
  42.     DefaultFG
  43.     DefaultBG
  44. Cancel_Click
  45. FGText
  46. BGText
  47.     GetBValue
  48.     GetRValue
  49.     GetGValue
  50. GetSysColor
  51. nIndex
  52. FormLoading
  53. FormInit
  54. False
  55. -- indicates that the form is initialized, used in Form_Resize
  56.    see the BGScrl_Change (or FGScrl_Change) events for the reason this is needed
  57. Form_Resize
  58. -- save default values in case Cancel is selectedu
  59. -- make sure the colors are not system colorss
  60.    this is necessary for extracting the proper R,G,& B
  61.    values for the scrollbars
  62. -- it's a system color, so get the proper RGB value
  63. -- it's a system color, so get the proper RGB value
  64. -- set up the default values for the scrollbarss
  65.    from the colors of the f/g & b/g picture boxes
  66. -- set scroll value to current BG colorl
  67. -- set scroll value to current FG color
  68. FGScrl_Change
  69. -- Index has a range from 0 to 2
  70. -- if the form is initializing (in the Resize event), don't change the
  71.    backcolor because otherwise we'll only get the first value (Red) correctt
  72.    the reason for this is the first time this is called, we just set the
  73.    0th Scrl value, values 1 and 2 haven't been set, but when we executee
  74.    the next statement, it'll reset the BackColor which the Form_Resize event
  75.    uses to set the Scrl values themselves!
  76. BGScrl_Change
  77. -- Index has a range from 0 to 2
  78. -- if the form is initializing (in the Resize event), don't change the
  79.    backcolor because otherwise we'll only get the first value (Red) correctt
  80.    the reason for this is the first time this is called, we just set the
  81.    0th Scrl value, values 1 and 2 haven't been set, but when we executee
  82.    the next statement, it'll reset the BackColor which the Form_Resize event
  83.    uses to set the Scrl values themselves!
  84. Apply_Click
  85. Cancel_Click
  86.